home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3ar.arc / LATE.PRG < prev    next >
Encoding:
Text File  |  1985-10-30  |  2.8 KB  |  116 lines
  1. ******************************* (B:LATE.PRG)
  2. CLEAR
  3. @ 15,15 SAY 'This needs the printer turned on and ready to go.'
  4. @ 17,27 SAY 'Do you want to continue?'
  5. store ' ' to option
  6. WAIT '                                    ? ' TO OPTION
  7. IF OPTION<>'Y'
  8. RETURN
  9. ENDIF
  10. CLEA
  11. SET EXACT ON
  12. STORE DTOC(DATE()) TO MDATE
  13. SET TALK ON
  14. USE B:LATE
  15. ZAP
  16. APPEND FROM B:INV FOR .NOT. PAID .AND. NEWDATE < CTOD(MDATE) - 75
  17. REPLACE ALL DUEDATE WITH NEWDATE+30
  18. CLEA
  19. SET DEVICE TO PRINT
  20. SET MARGIN TO 4
  21. SET PRINT ON
  22. ?
  23. ? '         Use this list to determine who will get the letter.'
  24. ? '         =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-='
  25. ?
  26. ?
  27. LIST OFF ACCT,NEWDATE,INVNO,PONO,PRICE,CRINV,AMTAPPL,NET
  28. ?
  29. SET PRINT OFF
  30. SET DEVICE TO SCREEN
  31. EJECT
  32. EJECT
  33. SET HEADING OFF
  34. SET TALK OFF
  35. DO WHILE .T.
  36. USE B:CUST INDEX B:ACCT
  37. CLEAR
  38. @ 1,1 SAY ì
  39. [=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
  40. -=-=-=-=-=]
  41. @ 4,1 SAY 'This is set up to run on Tops #5062 2-way continuous ì
  42. mailers.'
  43. @ 5,1 say 'Check your local office supply store for this form.'
  44. @ 6,1 say 'Or call us and we can send to you in a couple of ì
  45. days.'
  46. @ 7,1 SAY [We will ship you a box of 350 freight free for $ 49.95 ì
  47. anywhere in the U.S.]
  48. @ 8,1 say 'The form contains a file copy, a 1st class mail ì
  49. envelope,'
  50. @ 9,1 say 'a duplicate of the original,and a return envelope.'
  51. @ 10,1 say 'Run a sample on blank paper to test first.'
  52. @ 11,1 SAY 'Set 1st form flush at top of form.'
  53. @ 13,1 SAY [Sorry,but you are going to have to set your printer ì
  54. form length to 5 1/2"]
  55. @ 15,1 SAY 'Want to run a late report?'
  56. @ 18,1 SAY ì
  57. [=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
  58. -=-=-=-=-=]
  59. ?
  60. ?
  61. STORE ' ' TO OPTION
  62. WAIT ' Press Y or N  ' TO OPTION
  63. IF OPTION= 'N'
  64. RETURN
  65. ENDIF
  66. CLEAR
  67. STORE 0.00 TO MNET 
  68. CLEAR
  69. ACCEPT 'Which account? ' TO X
  70. FIND &X
  71. MATTN=ATTN
  72. MNAME=NAME
  73. MADDRESS=ADDRESS
  74. MCITY=CITY
  75. MSTATE=STATE
  76. MZIP=ZIP
  77. USE B:LATE
  78. STORE 0.00 TO GEE
  79. SUM NET FOR ACCT=X TO GEE
  80. SET DEVICE TO PRINT
  81. SET MARGIN TO 4
  82. SET PRINT ON
  83. CLEAR
  84. @ 2,1 SAY MTITLE
  85. @ 3,1 SAY MADD1
  86. @ 4,1 SAY MADD2
  87. @ 5,1 SAY MPHONE
  88. @ 7,1 SAY 'These invoices show as over 45 days past the due date,can ì
  89. you please help?'
  90. @ 8,0 SAY 'Invoice  Date      Amount   Credits  Payments      Net ì
  91. Dueì
  92.       Due Date'
  93. @ 9,0 SAY ì
  94. '-----------------------------------------------------------------ì
  95. ---------'
  96. LIST OFF INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,'  ',NET,'    ',DUEDATE FOR ACCT=X
  97. ? '                                       total due ì
  98. $'+STR(GEE,8,2)
  99. @ 22,8 SAY MTITLE
  100. @ 22,39 SAY MATTN
  101. @ 23,8 SAY MADD1
  102. @ 23,39 SAY MNAME
  103. @ 24,8 SAY MADD2
  104. @ 24,39 SAY MADDRESS
  105. @ 25,39 SAY TRIM(MCITY) +' '+ MSTATE +' '+ MZIP
  106. ?
  107. SET DEVICE TO SCREEN
  108. SET PRINT OFF
  109. SET MARGIN TO 0
  110. clea
  111. ?
  112. ? [Don't forget to set your printer back to regular form length ì
  113. when done.]
  114. ?
  115. ENDDO
  116.